PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Media/HyperText Stacks Folder/HyperText/background_3223.txt

Text File | 1988-01-01 | 4.8 KB | 218 lines

-- background: 3223 from stack: in
-- bmap block id: 2943
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
on opencard
  put script of field "holder" into field "index"
end opencard

on newcard
  ask "What is the title of this card?"
  put it into field title
end newcard


-- part 2 (field)
-- low flags: 00
-- high flags: 6007
-- rect: left=155 top=27 right=303 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mousewithin
  --
  --hypertext technique by Steve Drazga, ART Incorporated
  --if you use this in your scripts please include these 2 lines.
  --
  --
  global selectedWord
  if selection is not empty then  --something was selected
    put selection into SelectedWord

    if space is in selection then  --the user selected more than 1 word
      click at loc of target       --so we will clear the selection
      exit mousewithin             --and exit to wait for another selection
    end if

    find selectedWord in field "index"  --check to see if word is indexed
    if the result is empty then         --if it is valid, we will
      visual dissolve to inverse        --go to the card with the
      visual dissolve                   --same name
      go card selectedWord

      if the result is not empty then  --just in case card has been deleted
        answer "Can't find link. Create a new one?" with "Yes" or "No"
        if it is "Yes" then
          domenu "New Card"
          set the name of this card to selectedWord
        else click at loc of target
      end if

    else
      answer "Do you want to create a new link?" with "Yes" or "No"
      if it is "Yes" then CreateNewLink
      else click at loc of target
    end if
  end if
end mousewithin


on CreateNewLink
  global selectedWord
  put selectedWord&"*" into selection
  get script of field "holder"
  put return&selectedWord after it
  set script of field "holder" to it
  domenu "New Card"
  set the name of this card to selectedWord
end CreateNewLink





-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=457 top=302 right=328 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect dissolve to inverse
  visual effect dissolve
  go back
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=4 top=44 right=334 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: index
----- HyperTalk script -----
on mousedown
  set locktext of target to false
  click at the clickloc
  click at the clickloc
  put selection into selectedWord
  set locktext of target to true

  if selectedWord is not empty then
    visual dissolve to inverse
    visual dissolve
    go card selection
  end if
end mousedown





-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=143 top=306 right=327 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Index
----- HyperTalk script -----
on mouseUp
  if the short name of the target is "Show Index" then
    set visible of field "index" to true
    set name of target to "Hide Index"
  else
    set visible of field "index" to false
    set name of target to "Show Index"
  end if
end mouseUp



-- part 12 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=116 top=3 right=22 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: title


-- part 13 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=260 top=162 right=186 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: holder
----- HyperTalk script -----
Information
ART
HyperCard
Developer
sticky
HyperStation
GEnie
CIS
Drazga
Macintosh


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=302 top=306 right=330 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual dissolve to inverse
  visual dissolve
  go card "information"
  if the result is not empty then go first card
end mouseUp